unit UGenerica;

interface
    uses
      SysUtils;
    type
      Generica = class
protected
  id                  : integer;
  dataCadastro        : TDateTime;
  dataAlteracao     : TDateTime;
  userCadastro        : string;
  userAlteracao       : string;
  horaCadastro        : TTime;
  horaAlteracao       : TTime;



public
  constructor Create;
  destructor Destroy;

  function getId : integer;
  function getDataCadastro : TDateTime;
  function getDataAlteracao : TDateTime;
  function getUserCadastro : string;
  function getUserAlteracao : string;
  function getHoraCadastro : TTime;
  function getHoraAlteracao: TTime;

  procedure setId (vId : integer);
  procedure setDataCadastro (vDate : TDateTime);
  procedure setDataAlteracao (vDate : TDateTime);
  procedure setUserCadastro (vUserCadastro : string);
  procedure setUserAlteracao (vUserAlteracao : string);
  procedure setHoraCadastro (vHoraCadastro : TTime);
  procedure setHoraAlteracao (vHoraAlteracao : TTime);

end;

implementation

{ Generica }

constructor Generica.Create;
begin

end;

destructor Generica.Destroy;
begin

end;

function Generica.getDataAlteracao: TDateTime;
begin
   Result := dataAlteracao;
end;

function Generica.getDataCadastro: TDateTime;
begin
   Result := dataCadastro;
end;

function Generica.getHoraAlteracao: TTime;
begin
    Result := horaAlteracao;
end;

function Generica.getHoraCadastro: TTime;
begin
   Result := horaCadastro;
end;

function Generica.getId: integer;
begin
   Result := id;
end;

function Generica.getUserAlteracao: string;
begin
    Result := userAlteracao;
end;

function Generica.getUserCadastro: string;
begin
   Result := userCadastro;
end;

procedure Generica.setDataAlteracao(vDate: TDateTime);
begin
    dataAlteracao := vDate;
end;

procedure Generica.setDataCadastro(vDate: TDateTime);
begin
    dataCadastro := vDate;
end;

procedure Generica.setHoraAlteracao(vHoraAlteracao: TTime);
begin
      horaAlteracao:= vHoraAlteracao;
end;

procedure Generica.setHoraCadastro(vHoraCadastro: TTime);
begin
      horaCadastro := vHoraCadastro;
end;

procedure Generica.setId(vId: integer);
begin
    id := vId;
end;

procedure Generica.setUserAlteracao(vUserAlteracao: string);
begin
    userAlteracao := vUserAlteracao;
end;

procedure Generica.setUserCadastro(vUserCadastro: string);
begin
    userCadastro := vUserCadastro;
end;

end.

